home *** CD-ROM | disk | FTP | other *** search
/ PC Users 1998 June / Cd Pc Users 9.iso / prog / inst / gvocx / about.frm (.txt) next >
Encoding:
Visual Basic Form  |  1997-12-27  |  2.7 KB  |  86 lines
  1. VERSION 5.00
  2. Begin VB.Form About_Frm 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000005&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "About GVBox OCX"
  7.    ClientHeight    =   2670
  8.    ClientLeft      =   2685
  9.    ClientTop       =   2040
  10.    ClientWidth     =   4065
  11.    BeginProperty Font 
  12.       Name            =   "MS Sans Serif"
  13.       Size            =   8.25
  14.       Charset         =   0
  15.       Weight          =   700
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Icon            =   "About.frx":0000
  22.    LinkTopic       =   "Form2"
  23.    MaxButton       =   0   'False
  24.    MinButton       =   0   'False
  25.    PaletteMode     =   1  'UseZOrder
  26.    ScaleHeight     =   2670
  27.    ScaleWidth      =   4065
  28.    Begin VB.CommandButton Cmd_OK 
  29.       Appearance      =   0  'Flat
  30.       BackColor       =   &H80000005&
  31.       Caption         =   "OK"
  32.       Default         =   -1  'True
  33.       Height          =   375
  34.       Left            =   1560
  35.       TabIndex        =   1
  36.       Top             =   2040
  37.       Width           =   975
  38.    End
  39.    Begin VB.Image Image1 
  40.       Appearance      =   0  'Flat
  41.       Height          =   480
  42.       Left            =   360
  43.       Picture         =   "About.frx":030A
  44.       Top             =   240
  45.       Width           =   480
  46.    End
  47.    Begin VB.Label Lbl_About 
  48.       Alignment       =   2  'Center
  49.       Appearance      =   0  'Flat
  50.       BackColor       =   &H80000005&
  51.       BeginProperty Font 
  52.          Name            =   "MS Sans Serif"
  53.          Size            =   9.75
  54.          Charset         =   0
  55.          Weight          =   700
  56.          Underline       =   0   'False
  57.          Italic          =   0   'False
  58.          Strikethrough   =   0   'False
  59.       EndProperty
  60.       ForeColor       =   &H80000008&
  61.       Height          =   1455
  62.       Left            =   480
  63.       TabIndex        =   0
  64.       Top             =   240
  65.       Width           =   3255
  66.    End
  67. Attribute VB_Name = "About_Frm"
  68. Attribute VB_GlobalNameSpace = False
  69. Attribute VB_Creatable = False
  70. Attribute VB_PredeclaredId = True
  71. Attribute VB_Exposed = False
  72. Option Explicit
  73. Private Sub Cmd_OK_Click()
  74.     Unload About_Frm
  75. End Sub
  76. Private Sub Form_Load()
  77.     Dim A$, CRLF$
  78.     Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 3
  79.     CRLF$ = Chr$(13) & Chr$(10)
  80.     A$ = "GVBox OCX" & CRLF$ & "Version 1.0" & CRLF$ & CRLF$
  81.     A$ = A$ & "by Joe C. Oliphant" & CRLF$
  82.     A$ = A$ & "joe_oliphant@csufresno.edu" & CRLF$
  83.     A$ = A$ & "CompuServe [71742,1451]"
  84.     Lbl_About.Caption = A$
  85. End Sub
  86.